home *** CD-ROM | disk | FTP | other *** search
/ Tux Racer / Tux Racer.iso / program files / Sunspire Studios / Tux Racer / courses / swiss / sunset_light.tcl < prev    next >
Encoding:
Text File  |  2001-09-09  |  1.2 KB  |  36 lines
  1. objset :course \
  2.     {-light0_on} {1} \
  3.     {-light0_ambient} {0.300000011921 0.310000002384 0.340000003576 1.0} \
  4.     {-light0_diffuse} {0.77999997139 0.5 0.180000007153 1.0} \
  5.     {-light0_specular} {1.0 0.800000011921 0.699999988079 1.0} \
  6.     {-light0_position} {1.0 1.0 1.0 0.0} \
  7.     
  8.  
  9.  
  10. tux_fog -on -mode linear -density 0.005 -colour { 0.59 0.51 0.44 1 } -start 0 \
  11.     -end [tux_get_param forward_clip_distance]
  12.  
  13.   
  14. #
  15. # Environmental sphere map
  16. tux_load_texture envmap ../swiss/swisssunset_right.png 0
  17.  
  18. tux_particle_colour { 0.85 0.74 0.62 1.0 }
  19.  
  20. tux_load_texture swiss-front ../swiss/swisssunset_front.png 0
  21. tux_load_texture swiss-right ../swiss/swisssunset_right.png 0
  22. tux_load_texture swiss-left ../swiss/swisssunset_left.png 0
  23. tux_load_texture swiss-back ../swiss/swisssunset_back.png 0
  24. tux_load_texture swiss-top ../swiss/swisssunset_top.png 0
  25. tux_load_texture swiss-bottom ../swiss/swisssunset_bottom.png 0
  26.  
  27. tux_bind_texture sky_front swiss-front
  28. tux_bind_texture sky_right swiss-right
  29. tux_bind_texture sky_left swiss-left
  30. tux_bind_texture sky_back swiss-back
  31. tux_bind_texture sky_top swiss-top
  32. tux_bind_texture sky_bottom swiss-bottom
  33.  
  34. objcreate {s_texture_cube} {:textures:cubemap} \
  35.     {-filename} {../swiss/swisssunset_}
  36.